home *** CD-ROM | disk | FTP | other *** search
/ MacHack 1993 / MacHack 1993.toast / MacHack™ 1987-1992 / MacHack™ '90 / Utilities ƒ / MPW Tools ƒ / Simula4.07 / Simula 4.07ƒ / Scripts / simcomp < prev    next >
Encoding:
Text File  |  1989-05-02  |  968 b   |  37 lines  |  [TEXT/MPS ]
  1. set exit 0
  2. set sources ""
  3. set options ""
  4. set print ""
  5. echo "--------------------------------------------------------"
  6. echo " For Object Oriented Programming use the Original!"
  7. echo 
  8. echo "          Lund SIMULA ver 4.07"
  9. echo 
  10. echo " This is a freeware utility. For future updates contact:"
  11. echo "          Lund Software House AB"
  12. echo "          Box 7056"
  13. echo "          S-22007 Lund, Sweden"
  14. echo --------------------------------------------------------
  15.  
  16. for i in {parameters}
  17.     if "{i}" == "-p"
  18.         set print "-p"
  19.     else if "{i}" =~ /-≈/
  20.         set options "{options} {i}"
  21.     else if "{i}" =~ /≈ ≈/
  22.         echo Simula can∂'t handle blanks in sourcefile names: ∂""{1}"∂" not compiled
  23.     else
  24.         set sources "{i} {sources}"
  25.     end if
  26. end for
  27. for i in {sources}
  28.     "Simula" {print}{options} -n -s {i}
  29.     exit if {status}
  30.     setfile -t TEXT -c 'MPS ' {i}.atr
  31.     setfile -t TEXT -c 'MPS ' {i}.a
  32.     if "{print}" == "-p"
  33.         echo    assembling: {i}.a
  34.     end if
  35.     asm -wb {i}.a -o {i}.sim.o
  36.     delete {i}.a
  37. end for